YES 0.8260000000000001
↳ HASKELL
↳ BR
((foldFM_GE :: (Bool -> a -> b -> b) -> b -> Bool -> FiniteMap Bool a -> b) :: (Bool -> a -> b -> b) -> b -> Bool -> FiniteMap Bool a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap b a = EmptyFM | Branch b a Int (FiniteMap b a) (FiniteMap b a) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
foldFM_GE :: Ord b => (b -> c -> a -> a) -> a -> b -> FiniteMap b c -> a
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((foldFM_GE :: (Bool -> a -> b -> b) -> b -> Bool -> FiniteMap Bool a -> b) :: (Bool -> a -> b -> b) -> b -> Bool -> FiniteMap Bool a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap b a = EmptyFM | Branch b a Int (FiniteMap b a) (FiniteMap b a) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
foldFM_GE :: Ord a => (a -> b -> c -> c) -> c -> a -> FiniteMap a b -> c
|
import qualified FiniteMap import qualified Prelude |
foldFM_GE k z fr EmptyFM = z foldFM_GE k z fr (Branch key elt vw fm_l fm_r)
| key >= fr
= foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l | otherwise
= foldFM_GE k z fr fm_r
foldFM_GE k z fr EmptyFM = foldFM_GE3 k z fr EmptyFM foldFM_GE k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r)
foldFM_GE0 k z fr key elt vw fm_l fm_r True = foldFM_GE k z fr fm_r
foldFM_GE1 k z fr key elt vw fm_l fm_r True = foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l foldFM_GE1 k z fr key elt vw fm_l fm_r False = foldFM_GE0 k z fr key elt vw fm_l fm_r otherwise
foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE1 k z fr key elt vw fm_l fm_r (key >= fr)
foldFM_GE3 k z fr EmptyFM = z foldFM_GE3 wv ww wx wy = foldFM_GE2 wv ww wx wy
compare x y
| x == y
= EQ | x <= y
= LT | otherwise
= GT
compare x y = compare3 x y
compare0 x y True = GT
compare1 x y True = LT compare1 x y False = compare0 x y otherwise
compare2 x y True = EQ compare2 x y False = compare1 x y (x <= y)
compare3 x y = compare2 x y (x == y)
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(foldFM_GE :: (Bool -> a -> b -> b) -> b -> Bool -> FiniteMap Bool a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||
data FiniteMap b a = EmptyFM | Branch b a Int (FiniteMap b a) (FiniteMap b a) |
|||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||
foldFM_GE :: Ord a => (a -> c -> b -> b) -> b -> a -> FiniteMap a c -> b
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
new_foldFM_GE(wz3, False, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz64, h, ba)
new_foldFM_GE(wz3, True, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz63, h, ba)
new_foldFM_GE(wz3, False, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz63, h, ba)
new_foldFM_GE(wz3, True, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz64, h, ba)
new_foldFM_GE(wz3, False, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz63, h, ba)
new_foldFM_GE(wz3, False, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz64, h, ba)
new_foldFM_GE(wz3, True, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz64, h, ba)
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
↳ AND
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
new_foldFM_GE(wz3, True, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz63, h, ba)
new_foldFM_GE(wz3, True, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz64, h, ba)
new_foldFM_GE(wz3, True, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, True, wz64, h, ba)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
↳ AND
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
new_foldFM_GE(wz3, False, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz64, h, ba)
new_foldFM_GE(wz3, False, Branch(True, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz63, h, ba)
new_foldFM_GE(wz3, False, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz63, h, ba)
new_foldFM_GE(wz3, False, Branch(False, wz61, wz62, wz63, wz64), h, ba) → new_foldFM_GE(wz3, False, wz64, h, ba)
From the DPs we obtained the following set of size-change graphs: